home *** CD-ROM | disk | FTP | other *** search
/ WWII Attack! from Pearl Harbor to Potsdam / WWII Attack - From Pearl Harbor to Potsdam - Disc 3.iso / pc / us / shared.cst / 00030_Script_30 < prev    next >
Text File  |  1999-11-23  |  2KB  |  56 lines
  1. on rename start, stop
  2.   repeat with n = start to stop
  3.     put the name of cast n into myName
  4.     put n + 1 - start into word 2 of myName
  5.     set the name of cast n to myName
  6.   end repeat
  7. end
  8.  
  9. on rescript
  10.   global channel, nextMovie
  11.   set badScript to field "bad script"
  12.   set myCast to the castNum of sprite channel
  13.   if myCast <> 0 then
  14.     set oldScript to the scriptText of cast myCast
  15.     put the number of lines of oldScript into lineCount
  16.     put line lineCount - 2 of oldScript into aMovie
  17.     if offset("go to movie", aMovie) <> 0 then
  18.       set nextMovie to aMovie
  19.     end if
  20.     if offset(badScript, oldScript) <> 0 then
  21.       put "on mouseDown" & RETURN into newScript
  22.       put "  global Dir4Path" & RETURN after newScript
  23.       put line 2 of oldScript & RETURN after newScript
  24.       put the number of lines of oldScript into lineCount
  25.       put line lineCount - 2 of oldScript into aMovie
  26.       if offset("play done", aMovie) <> 0 then
  27.         put "  put Dir4Path & " into aMovie
  28.         put QUOTE & "IBCMENU.DIR" & QUOTE after aMovie
  29.         put " into next" & RETURN after aMovie
  30.         put "  go to movie next" & RETURN after aMovie
  31.       end if
  32.       set badOff = offset(badScript, aMovie)
  33.       if badOff <> 0 then
  34.         put "go to movie Dir4Path & " & QUOTE into char badOff¨
  35.           to badOff + length(badScript) - 1 of aMovie
  36.       end if
  37.       set aPCMovie to aMovie
  38.       repeat while offset(":", aPCMovie) <> 0
  39.         put "\" into char offset(":", aPCMovie) of aPCMovie
  40.       end repeat
  41.       if aPCMovie <> aMovie then
  42.         put "  if the machineType = 256 then" & RETURN after newScript
  43.         put "  " & aPCMovie & RETURN after newScript
  44.         put "  else" & RETURN after newScript
  45.         put "  " & aMovie & RETURN after newScript
  46.         put "  end if" & RETURN after newScript
  47.       else
  48.         put aMovie & RETURN after newScript
  49.       end if
  50.       put "end" & RETURN after newScript
  51.       put newScript
  52.       set the scriptText of cast myCast to newScript
  53.     end if
  54.   end if
  55. end
  56.